#include "directry.ch"


? ?  netname()



 nResult  := dirchange("z:\")
 if nResult != 0
    ? "o computador ou diretorio nao existe..."
 else
    ? "consegui dirchange('z:\')"

  use lixo shared new
  if ! neterr()
    ? " o arquivo Lixo aberto com sucesso"
    close all
  else
    ? "nao conseguiu abrir arquivo"
  endif
  wait
    run ("cd z:\")
    ? netname()
    ? curdir()
 endif

